home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / e / jrhrkrm2.lzh / RKRM_PartTwo / Utility / hooks1.e < prev    next >
Text File  |  1995-09-20  |  986b  |  40 lines
  1. -> hooks1.e
  2.  
  3. ->>> Header (globals)
  4. MODULE 'utility',
  5.        'utility/hooks',
  6.        'tools/installhook'
  7.  
  8. ENUM ERR_NONE, ERR_LIB
  9.  
  10. RAISE ERR_LIB IF OpenLibrary()=NIL
  11. ->>>
  12.  
  13. ->>> PROC myFunction(h:PTR TO hook, o, msg)
  14. -> This function only prints out a message indicating that we are inside the
  15. -> callback function.
  16. PROC myFunction(h:PTR TO hook, o, msg)
  17.   -> E-Note: installhook has set-up access to data segment
  18.   WriteF('Inside myFunction()\n')
  19. ENDPROC 1
  20. ->>>
  21.  
  22. ->>> PROC main()
  23. PROC main() HANDLE
  24.   DEF h:hook
  25.   -> Open the utility library
  26.   utilitybase:=OpenLibrary('utility.library', 36)
  27.   -> Initialise the callback hook
  28.   -> E-Note: use installhook to do the main stuff (so h.data cannot be used)
  29.   installhook(h, {myFunction})
  30.   -> Use the utility library function to invoke the hook
  31.   CallHookPkt(h, NIL, NIL)
  32. EXCEPT DO
  33.   IF utilitybase THEN CloseLibrary(utilitybase)
  34.   SELECT exception
  35.   CASE ERR_LIB;  WriteF('Error: could not open utility library\n')
  36.   ENDSELECT
  37. ENDPROC
  38. ->>>
  39.  
  40.